library(gplots)

 main0="Parameter optimisation by Q_ok"
 pairs.breaks <- seq(0,1, by=0.05)
data2 <-read.table("heatset1.txt")
set2<-as.matrix(data2)
colnames(set2)=c("3",   "1",   "-1",  "-3",  "-5",  "-7",  "-9",  "-11", "-13", "-15")
png("heat1_lowforkey.png",width=1000, height=1000)
heatmap.2(set2,,density.info="none",col=redgreen,Rowv=NA, Colv=NA,symkey=FALSE,trace="none",dendrogram = c("none"),main=main0,cexRow=5,cexCol=5,cex.main=3,breaks=pairs.breaks,xlab="G",ylab="C")
 dev.off()
